object frmSound: TfrmSound Left = 339 Top = 383 Width = 576 Height = 395 Caption = 'Sounds Manager' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Icon.Data = {} OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 16 object sbSound: TStatusBar Left = 0 Top = 349 Width = 568 Height = 19 Panels = <> SimplePanel = True end object pnlSoundTop: TPanel Left = 0 Top = 0 Width = 568 Height = 38 Align = alTop BevelOuter = bvNone TabOrder = 1 object lblSoundBank: TLabel Left = 8 Top = 10 Width = 84 Height = 16 Caption = 'Sound Bank' end object cbBankSound: TComboBox Left = 112 Top = 7 Width = 185 Height = 24 ItemHeight = 16 TabOrder = 0 Text = 'cbBankSound' OnClick = cbBankSoundClick end object pnlTopSoundBankRight: TPanel Left = 464 Top = 0 Width = 104 Height = 38 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbRestSound: TSpeedButton Left = 3 Top = 11 Width = 97 Height = 15 Hint = 'Restore this sound bank to its default' Caption = '&Restore to default' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = sbRestSoundClick end end end object pnlSountBottom: TPanel Left = 0 Top = 316 Width = 568 Height = 33 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 object btnCancel: TBitBtn Left = 16 Top = 5 Width = 75 Height = 25 Hint = 'Cancel the change ' Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 0 OnClick = btnCancelClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033338833333333333333333F333333333333 0000333911833333983333333388F333333F3333000033391118333911833333 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333 911118111118333338F3338F833338F3000033333911111111833333338F3338 3333F8330000333333911111183333333338F333333F83330000333333311111 8333333333338F3333383333000033333339111183333333333338F333833333 00003333339111118333333333333833338F3333000033333911181118333333 33338333338F333300003333911183911183333333383338F338F33300003333 9118333911183333338F33838F338F33000033333913333391113333338FF833 38F338F300003333333333333919333333388333338FFF830000333333333333 3333333333333333333888330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object pnlSoundButtonRight: TPanel Left = 398 Top = 1 Width = 169 Height = 31 Align = alRight BevelOuter = bvNone TabOrder = 1 object btnClose: TBitBtn Left = 84 Top = 3 Width = 75 Height = 25 Caption = 'Cl&ose' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877 F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F 000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333 338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333 45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F 3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F 000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333 338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333 4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888 8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0 333333333333888888F3333F00003333330000003333333333338FFFF8F3333F 0000} NumGlyphs = 2 end object btnSave: TBitBtn Left = 3 Top = 3 Width = 75 Height = 25 Caption = '&Save' Default = True TabOrder = 1 OnClick = btnSaveClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333388F3333333333000033334224333333333333 338338F3333333330000333422224333333333333833338F3333333300003342 222224333333333383333338F3333333000034222A22224333333338F338F333 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224 33333338F83338F338F33333000033A33333A222433333338333338F338F3333 0000333333333A222433333333333338F338F33300003333333333A222433333 333333338F338F33000033333333333A222433333333333338F338F300003333 33333333A222433333333333338F338F00003333333333333A22433333333333 3338F38F000033333333333333A223333333333333338F830000333333333333 333A333333333333333338330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end end object btnUnsetSound: TBitBtn Left = 187 Top = 4 Width = 86 Height = 25 Hint = 'Select no sound ' Caption = '&No Sound' Default = True ModalResult = 6 TabOrder = 2 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end end object pnlSoundClient: TPanel Left = 0 Top = 68 Width = 568 Height = 248 Align = alClient TabOrder = 3 object spltSound: TSplitter Left = 282 Top = 1 Width = 3 Height = 246 Cursor = crHSplit Align = alRight end object pnlSoundRight: TPanel Left = 285 Top = 1 Width = 282 Height = 246 Align = alRight BevelOuter = bvNone TabOrder = 0 object lblVolume: TLabel Left = 8 Top = 154 Width = 53 Height = 16 Caption = 'Volume' end object lblPriority: TLabel Left = 8 Top = 199 Width = 50 Height = 16 Caption = 'Priority' end object lblFrequency: TLabel Left = 8 Top = 114 Width = 74 Height = 16 Caption = 'Frequency' end object spReplace: TSpeedButton Left = 153 Top = 244 Width = 24 Height = 24 Hint = 'Select another sound from a file' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFF3333F333333300033039333333338883F33833333330007009 333333333838F8F38333333308087099339933338338383F3338333088070999 99033338F38F338F3383333088009999990333F8338FF38F3833300888099999 9903388F33883F8F833308077700999999038F8F338F8F8F3FFF080888070999 99098F8F338F8F8F88880707770700993333838F338F838F3F33300777007709 33333883F388338F83F333307708770039333338F38F338F383F333077088703 339333383F83F38333833333078888333339333383F8F8F33F38333330708033 933333333838F83383F333333300033339333333338883333833} NumGlyphs = 2 OnClick = spReplaceClick end object lblVolumeNo: TLabel Left = 232 Top = 154 Width = 13 Height = 16 Caption = '...' end object lblPriorityNo: TLabel Left = 232 Top = 200 Width = 13 Height = 16 Caption = '...' end object lblSoundId: TLabel Left = 5 Top = 13 Width = 70 Height = 16 Caption = 'Sound Id :' end object lblSoundIdNo: TLabel Left = 78 Top = 13 Width = 25 Height = 16 Caption = '999' end object Label1: TLabel Left = 8 Top = 248 Width = 128 Height = 16 Caption = 'Change this sound' end object cbLoop: TCheckBox Left = 8 Top = 48 Width = 97 Height = 17 Hint = 'Sound will loop' Caption = 'Loop' TabOrder = 0 OnClick = PostSoundNo end object cb2d: TCheckBox Left = 8 Top = 80 Width = 97 Height = 17 Hint = 'Sound does not require a 3D buffer.' Caption = '2D Sound' TabOrder = 1 OnClick = PostSoundNo end object cbFreq: TComboBox Left = 96 Top = 112 Width = 121 Height = 24 Hint = 'Set to Frequency' ItemHeight = 16 TabOrder = 2 Text = 'cbFreq' OnChange = PostSoundNo Items.Strings = ( 'From File' '11025' '22050' '44100') end object tbVolume: TTrackBar Left = 85 Top = 150 Width = 140 Height = 33 Hint = 'Set Volume from Silence to maximum' Max = 10000 Orientation = trHorizontal Frequency = 1000 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 3 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbVolumeChange end object tbPriority: TTrackBar Left = 85 Top = 195 Width = 140 Height = 33 Hint = 'Set priority to play sound (239 is default)' Max = 255 Orientation = trHorizontal Frequency = 20 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 4 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbPriorityChange end end object pnlListSoundClient: TPanel Left = 1 Top = 1 Width = 281 Height = 246 Align = alClient BevelOuter = bvNone TabOrder = 1 object pnlListSoundBot: TPanel Left = 0 Top = 205 Width = 281 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 0 object mpSound: TMediaPlayer Left = 10 Top = 6 Width = 141 Height = 30 EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject] VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev] TabOrder = 0 OnPostClick = mpSoundPostClick end object pnlSoundId: TPanel Left = 170 Top = 0 Width = 111 Height = 41 Align = alRight BevelOuter = bvNone TabOrder = 1 object sbAddText: TSpeedButton Left = 46 Top = 10 Width = 24 Height = 24 Hint = 'Add a new sound in the list' Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333300033333300333330F03333 3300333330F033333300330000F000033300330FFFFFFF033300330000F00003 3300333330F033333300333330F0333333003333300033333300333333333333 33003333333333333300} OnClick = sbAddTextClick end object sbDelMessage: TSpeedButton Left = 83 Top = 10 Width = 24 Height = 24 Hint = 'Clear this sound from the list' Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003333333333333300333333333333 330033333333333333003300000000003300330FFFFFFFF03300330000000000 3300333333333333330033333333333333003333333333333300333333333333 33003333333333333300} OnClick = sbDelMessageClick end object sbPrevious: TSpeedButton Left = 7 Top = 10 Width = 24 Height = 24 Hint = 'Go to my sound' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F 00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F 00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00 F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0 F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF 0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF 00337777FFFF77FF7733EEEE0000000003337777777777777333} NumGlyphs = 2 OnClick = sbPreviousClick end end end object tlbSound: TListBox Left = 0 Top = 0 Width = 281 Height = 205 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 1 OnClick = tlbSoundClick end end end object pnlMessage: TPanel Left = 0 Top = 38 Width = 568 Height = 30 Align = alTop BevelOuter = bvNone TabOrder = 4 object lblSoundText: TLabel Left = 8 Top = 9 Width = 13 Height = 16 Caption = '...' end end object odWav: TOpenDialog DefaultExt = '.wav' Filter = 'Wave files (*.wav)|*.wav|All files (*.*)|*.*' Left = 344 Top = 328 end end